1 REM *DONE FOR -OZSI- IN 1997 2 REM * BY TOMZ/TIDE/TDR/UTURN. 9 POKE 53280,0:POKE53281,0:PRINT"" 10 PRINT"[147]":FORI=0TO63:POKE832+I,0:NEXT 20 GOSUB 60000 999 POKE198,0:WAIT198,1:POKE198,0:PRINT"[145][145]":END 60000 DATA"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]" 60001 DATA"[209][209] [209][209]" 60002 DATA"[209][209] [209][209][209] [209][209] [209][209][209] [209][209][209][209][209] [209]" 60003 DATA"[209] [209][209] [209] [209] [209] [209] [209] [209]" 60004 DATA"[209] [209][209] [209] [209] [209] [209] [209][209][209][209] [209][209]" 60005 DATA"[209] [209][209] [209] [209] [209] [209] [209] [209][209]" 60006 DATA"[209] [209][209][209] [209][209] [209][209][209][209] [209][209][209][209][209] [209]" 60007 DATA"[209][209] [209][209]" 60008 DATA"[209][209][209] [209][209][209][209][209] [209][209] [209][209] [209][209][209]" 60009 DATA"[209][209][209][209] [209][209] [209][209] [209][209][209][209] [209][209][209][209]" 60010 DATA"[209][209][209][209] [209][209][209][209][209] [209][209] [209][209][209][209]" 60011 DATA"[209][209][209] [209][209] [209][209] [209][209] [209][209][209]" 60012 DATA"[209][209] [209][209][209][209][209] [209][209] [209][209]" 60013 DATA"[209] [209]" 60014 DATA"[209][209][209][209][209][209] [209][209] [209] [209] [209][209][209][209][209] [209]" 60015 DATA"[209] [209] [209] [209] [209][209] [209][209] [209][209] [209]" 60016 DATA"[209] [209] [209] [209] [209] [209] [209] [209][209] [209]" 60017 DATA"[209] [209] [209] [209] [209] [209] [209][209] [209]" 60018 DATA"[209][209] [209] [209] [209] [209] [209] [209][209] [209][209]" 60019 DATA"[209][209] [209] [209][209] [209] [209] [209][209][209][209][209][209][209]" 60020 DATA"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]" 60100 V=53248:POKEV,200:POKEV+1,100:POKEV+21,1:POKEV+39,14:POKE2040,13 60110 FORI=0TO20 :READA$:FORK=0TO2:T=0:FORJ=0TO7:B=0 60140 IF MID$(A$,J+K*8+1,1)="[209]"THEN B=1 60150 T=T+B*2^(7-J):NEXT:PRINTT;:POKE832+I*3+K,T:NEXT:PRINT:NEXT 60200 RETURN